10 V=15 :POKE53280,.:POKE53281,.:PRINTCHR$(147):POKE53272,23:PRINT""
20 PRINT"                     [176][184][184][184][184][184][184][184][184][184][184][174]"
40 PRINT"                     [181]          [182] "
45 PRINT"                     [173][185][185][185][185][185][185][185][185][185][185][189]       "
50 FORI=0TO2:POKE646,INT(RND(0)*15)+1  :
60 ONIGOSUB180,240,300,360
90 FORZ=1TOV:NEXT:PRINT"";:NEXT
100 FORI=10TO3 STEP-1:
130 ONIGOSUB180,240,300,360:
140 FORZ=4TOVSTEP-2    :NEXT:NEXT:GOTO50
180 POKE1569,69:POKE1570,78:POKE1571,68:POKE1572,69:RETURN
240 POKE1569,45:POKE1570,45 :POKE1571,45:POKE1572,45:RETURN
250 PRINT"[144]"
300 POKE1569,197:POKE1570,206:POKE1571,196:POKE1572,197:RETURN
360 POKE1569,45 :POKE1570,45 :POKE1571,45:POKE1572,45:RETURN